AARISVARK Tk^CHi'IIC-Ai— SERVICES 

1690 COLTON WALLED LAKE MICH, 4SC8S <313)624-6318 
04/21V80- 4530 A.M. 


I HAVE JUST FINISHED WRITING "ESCAPE FROM MARS" AND NOW REALISE THAT 
THOSE OF YOU WHO HAVE NOT PLAYED ADVENTURE IN THE PAST WILL NEED SOME 

INSTRUCTIONS. 

THE NORMAL INSTRUCTION SET FOR AN ADVENTURE IS "USE SHALL WORDS AND 
TWO WORD COMMANDS”, PERIOD. THE REST IS UP TO YOU. 

IN FACT? YOU CAN USE ANY SENTENCE AS LONG AS YOU WANT ? BUT THE SYSTEM 
WILL ASSUol. THAT THE FIRST WORD IS A VERB AND THE LAST IS THE OBJECT. 
THE REST IS IGNORED. THE COMPUTER HAS A VOCABULARY OF ABOUT 100 WORDS- 
I WONT TELL YOU WHICH ONES-BUT SOME COMMON ONES YOU SHOULD KNOW BEFORE 
YOU START ARE INVENTORY? TAKE ? LOOK? AND GO. 

YOU WILL BE GIVEN THE OBVIOUS EXITS FROM ANY AREA BUT WILL HAVE TO 
FIGURE OUT THE OTHER ONES FOR YOURSELF. REMEMBER THAT YOU CAN GO 
PLACES AS WELL AS DIRECTI0NS-S0METIME3, ALSO REMEMBER TO LOOK AT EVERY 
THING CLOSELY, 

. SPECIAL INSTRUCTIONS FOR TAPE MACHINES. 

YOU WILL HAVE TO LOAD THE SETUP TAPE FIRST. IT 13 A CURE FOR THE 
GARBAGE COLLECTOR PROBLEM THAT KEEPS YOUR SYSTEM FROM HANDLING STRINGS, 
LOAD THE FIRST TAPE? RUN IT ? VERIFY THAT IT HAS CLEARED ITSELF FROM 
THE MACHINE (IT HAS A "NEW” COMMAND IN IT )? WARM START AND LOAD THE 
SECOND TAPE. 

********IMPORTANT****** 

«#*D0 NOT WATCH THE TAPE LOAD*#***# 

AS SOON AS THE FIRST LINE GOES IN CLEAN (TO MAKE SURE IT IS LOADING)» 
TURN OFF THE MONITOR? TURN DOWN THE BRIGHTNESS? OR JUST GO AWAY AND 
HAVE COFFEE. THIS TAPE WILL TAKE 7 MINUTES TO LOAD (WE PACKED THE 
8K GOOD! ) AND IT CONTAINS A LOT OF CLUES THAT WOULD SPOIL THE FUN OF 
EXPLORING THE ENVIRONMENT YOURSELF, ADVENTURE IS A SOPHISTICATED 
PUZZLE AND THE MORE ANSWERS YOU START WITH THE LESS YOU WILL HAVE THE 
PLEASURE OF FERRETING OUT YOURSELF. 

****T0 RESTART*** 

IF YOU JUMP OUT OF PROGAM (I.E. BY FUTTING IN A CR WITHOUT AN ENTRY) 
ENTER DEATH SHIP G0T0120 
. ESCAPE FROM MARS GQTQ500 

THAT WILL ALLOW RENTRY WITHOUT A TOTAL RESTART 

*HINT*BON'T DESPAIR IF YOU DIE A FEW TIMES- IT MEANS YOU ARE ON THE 
RIGHT TRACK. ***NOT ALL EXITS ARE OBVIOUS*** 

******FOR ALL SYSTEMS**** 

THE ONE COMPROMISE WE HAD TO MAKE TO GET IT ALL IN 3K WAS TO ELIMINATE 
MOST FAILURE MESSAGES-THOSE THAT TELL YOU THAT YOU CANT DO WHAT YOU 
TRIED, WE JUST IGNORE COMMANDS WE CANT CARRY OUT SO ALWAYS LOOK 
AROUND TO SEE IF YOUR COMMAND WAS EXECUTED. 


RODGER OLSEN 
PRESIDENT 


LISTING ENCLOSED - OPEN ONLY IN CASE OF EMERGENCY!!!! 
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DIMDiv IS },C54 /»L(48 )»P4 18.6 )1L-1 ,’L2=1 ;FQRX=ITG48;PRINT:NEXT 
FQRX-1TQ1S* RE ABB t( XKNEXT 

DATACQNTROL ROOM»ENGINE ROOM,BARREN FIELD,MOAT 

DATAPLAZA,ANCIENT TEMPLE,DRY WELL,DESERTED ROOM,GARDEN 

DATAGB3ERVATQRY 

DhTAKITCHEN~I THINK,A MAZE OF HALLS,DANK CELLAR,SECRET FASSAGE 
DATAXPTL'S SHOP OF MATING SCENTS 

DATAMARTIAN HABITAT,LEDGE OVERLOOKING THE CITY,SANDSLED 
FQRX=1T054:READ0*( X )*0$-0$PLEFT$< 0*( X ),2) 

IFX>6THENREADL(X-6) 

NEXT i DATANOR TH,SOUTH,EAST,WEST,UP,DOWN 
DATANETS,2»FASTGRQ,20,HQLY GRAIL,5,SEEDS,20 
DATAALCHOHOL,20,BRASS TUBING,13,STATUE OF FLUTE PLAYER,3 
DATAGOLD BARS,13,TORCH,6 

DATAINJECTOR PUMP,7,HARMONICA,20,LIGHTER,20,SNEAKERS,19,TABLE,15 
DATAHELHET,20 

DATAMARTIAN,20,TIMEPIECE,19,BILL OF MATERIALS FOR STILL,19 

DAT AJEWELED CLUB,13,OXYBOTTLE,19 

DATAAIRRGCKS,3,FLASKS,15,TEXTBOOK,1,CRATE5~CL0SED,2 

BATATRAPDGGR-GPEN,20,MIRROR ON WALL,S 

DATAROPE,17,SIGN,5,RUG,8,WATER,4,ORGAN,S,FIRE,20 

DATASIGN SAYS USE FERTILIZER,9 

DATABUTTON-RED PUSH TYPE,1,SANDSLED,3,OVEN,11,KETTLE,11 
BATACQNTRQL PANEL,1,RACK-SAYS PLACE INJECTOR HERE,2 
DATALOW-OX WARNING-ON,2,RECHARGING STATION,2,STATUE ON DIAS,6 
DATARAMP,7,LOCKER,2,DRY WELL,6,VIEWPORT,!,(SIGN) BRING FUEL HERE,2 
DATAP0CKETS,20 

FORY=1TO18:FQRX=1TQ61READP( Y»X);NEXTX,Y 
DATA,,,,,2,,,3,,1,,4,4,5,2,,,3,3,4,4,4,4 
DATA6,15,8,3,,,,5,9,,,,,,12,,, 


DATA,,,5,, 
DATA14,,16 
DATA,,,10,: 
DATA,,10,,,, 
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,17, 

,,, 12 ,,, 

,, 11 ,,,, 


W$="GOTALODRHIOPTILIUNPUPL" 

G0T0760 

IFL=12THENF0RX=1T06IP( 12,X >-0INEXTIPC12,INT( 2*RND< 8) )+l )=13 
P(12,(INT(RND(8 5*2 5+3)>=7:iFL=2THEN0=0 
IFL< 4 )<>110RL( 6 >OilORL( 32 )<>110RL( 30 )<>110RGR=0THEN5O0 
0i( 43)=”STILL”:iFL(5 )=20THENL(5 5=11 

print:input"tell me what to do”)a$:frint:b$= , " , :forx=itolen<a$) 

IFMID$(A*,X,1 )=" "ANDLEN; Ai»X+lTHENBi=MIBi(A$,X+l,2 ) 

NEXT:F=0:S=0 l G0SUB1660 
IFA$="SM"ORA$="BR"THENA$="HI" 

L2=LJIFB$="TU"THENB$="BR" 

IFA$="RE"THENA*="LO" 

IFB$="WH"THENB$="SE" 

IFA$="GE"THENA*="TA" 

IFB$="CL"THENB$=’'JE" 

IFB$=“GR"THENB$="HG" 

G=G+i:iFG<600RRND(3K.90RL( 16 )<>20THEN630 

X=INT( RND( 8 5*31 )l IFL( X )<>OANDL( X K>20THENL( X )=INT( RND( S) 5*13tl 
PRINT"I HEAR A FAINT RUSTLING SOUND" 

IFRNIK 8)>,95ANDL( 16 )=20THENPRINT'‘I THINK I'M BEING WATCHED 
IFL( 4 )=9ANDL(30 )=9ANDL( 2i=9THENGR=liO$(10)="WHEAT"IL< 30 5=4 
FQRX=1T0LEN( W$ )STEP2:iFMID$( W$,X»2 )=A$THENF=( Xtl)/2 
NEXT:F0RX=1T0LEN(0$ 5STEP2:iFMID*( 0i,X,2 )=B*THENS=( Xtl5/2 
NEXT t IFA$="IN"THEN1030 

IFM=4ANDF02THENM=0:PRINT1PRINT"HE LEFT! m :L(16)=20:PRINT 


ESCAPE FROM MARS 









* 690 IFL>2THEN0=QHSIFQ>5OTHENPRINt"L0W OXYGEN WARNING-RECHAGE" 

' 700 IFL>2ANDL( 20 )<>0THEN0=0+7 

* 710 IF0>63ANDL>2THENPRINT"GASP» GASP t I DIED FROM LACK OF AIR"SEND 
. 720 IFF<1THENPRINT"HUH??"SG0T0460 

*730 QNF-1G0T0820»1060»1230»1390»1450r1490»1530>1590*1600*1680 
'740 IFS<10RS>60RL=6ANDS=4THEN1270 

- 750 IFP(L*S)>OTHENL=P(L*S )SL2=L 
‘760 PRINT"I AM IN - "»D$(L)tY=0 

. 770 IFLI=QAND< L=70RL=13QRL=14)THENF'RINT"ITS DARK, I CANT SEE!"SGGT0460 
*780 PRINT"I SEE " i »FORX=1T047IIFL(X>=L2TH£NPRINT" *"0*( X+6 >»SY=Y+1 
•790 NEXT SPRINT I PRINTS IFY=OTHENPRINT"NOTHING" '.PRINT 

•300 PRINT”OBVIQUS EXITS ARE-" i SF0RX-1T06SIFF'( LrX »OTHENF‘RINTO$< X >?"#" r 
> 810 NEXTSPRINTSGQT0460 

* 820 IFS<6THENPRINT"HUH?"SG0T0460 
*830 IFS=11THEN940 

, 840 IFS=22ANDL( 16 >=LTHEN940 

- 850 IFL( S-6 XOLTHENPRINT" I DON'T SEE IT HERE" SG0T0460 
-860 IFC>6THENPRINT"CANT I'M CARRYING TO MUCH"SG0T0460 
•870 IFS>37THENPRINT"I CANT TAKE THAT"IGQT0460 

* 880 IFS>31THENQNS-31GQTQ900»910*920*930*940 
'890 L(S-6)=0SC=C+1IG0T0460 

•900 PRINT"IT'S GLUED TO THE WALL-BUT FRAGILE"SG0T046O 
'910 PRINFSIGN FELL" !L( 27 )=0SG0T0460 t 

•920 PRINT"ITS TIED TO A LEDGE ON THE SECOND FLOOR"IG0T0460 
'930 L(29 )=0SIFL=8THENPRINT"AHA!"SL(25 >=8SG0T0460 
-940 INPUT"IN WHAT"*A$SG0SUB1660 

*950 IFS=22AND( A*<>"NE"ORL< 1)<>0)THENPRINT"GOT AWAY"SL( 16 )=20SG0T0460 
•960 IFS=22THEN1740 

-970 IFS=11ANDA$<>"FL"THENPRINT"IT EVAPORATED"SGCT0460 
'980 IFS=11THENL(5 )=0SG0T0460 

* 990 IFA$="FL"ANDL(22 )=OTHENPRINT"IT DISSOLVED"SL( 22)=15SGGTG460 
*1000 IFA$=“HO"GRA$="GR”THENPRINT"LEAKED OUT-ITS A HOLEY GRAIL"SGQT0460 

* 1010 IFA$=”HE"ANDL(15)=OTHENL< 30)=0SG0T0460 
■1020 PRINT”I DONT THINK THAT WILL WORK"SGQT0460 
'1030 PRINT"I AM CARRYING"!F0RX=1T034 

* 1040 IFL(X )=OTHENPRINTO$( Xt6) 

* 1050 NEXTSG0T0460 
•1060 IFB$=""GRS<6THEN760 

; 1070 IF(S=290RS=240RS=90RS=23)ANDL<S-6 )<>0THEN1220 
"4080 IFS0320RL08THEN1100 

-1090 PRINT"I SEE RUGGED PERSON IN POCKETED SURVIVAL SUIT"SG0T0500 
*1100 IFSO540RL( 11 )<>20THEN1120 

-1110 PRINT"A HARMONICA AND A POCKET LIGHTER"SL(11)=OSL( 12 )=OSGOTO460 
'1120 IFB$="WE"ANDL=6THENPRINT"THERE IS SOMETHING THERE"SG0T0460 
.1130 IFS=34THENPRINT"EARTHIE GO HOME!!"IGOT0460 
■ 1140 IFS=41ANDL=3THENL2=18SG0T0780 
i1150 IFS=52ANDL=1THENL2=3SG0T0780 

* 1160 IFS=9THENPRINT"SEEDS!"SL<4)=LSGOT0460 
•1170 IFSO29THEN1190 

-1180 PRINT"SUGGESTED FUELS"SPRINT"HYDRAZINE"SPRINT"ALCHOHOL"SG0TO460 

•1190 IFS=24THENPRINT"WATER* POT* TUBING* FIRE* GRAIN"SG0T0460 

*1200 IFS=23THENF’RINT60-0"MINUTES OF AIR LEFT" IG0T0460 

.1210 PRINT"NOTHING SPECIAL"IG0T0460 

-1220 PRINT"I DONT HAVE IT"SG0T0460 

'1230 IFBt=" “0RS<6THENPRINT ,, HUH??" IG0T0460 

'1240 IFL<S-6 )<>0THEN1220 

* 1250 IFB$="RU"ANDL=8THENL( 25)=20 
.1260 L(S-6 )=LSC=C-1SG0T0460 

* 1270 IFS=41ANDL=3THENL=18SL2=LSGOT0760 
.1280 IFLO6THEN1310 






'0 IFB$="WE" ANDDR=OTHENF'RINT" I FELL IN AND DIED" JEND 
1300 IFB$="WE"THENL=7 
-1310 IFL(25 )=8ANDS=31ANDL( 13)<>OTHEN1370 
. 1320 IFS=31ANDL=8THENL=7:L2=L 5G0TQ760 
.1330 IFS=49ANDL=7 ANDL( 2? )=8THENF'RINT"BLOCKED” :G0T0460 
*1340 IFS=49ANDL=7ANDC>1THENPRINT"CARRYING TO HUGH"JG0T0460 
*1350 IFS=49ANDL=7THENL=8:L2=L:G0T0760 
,1360 G0TO460 

.1370 PRINT" I SLIPPED DOWN AN INCLINED PLANE AND DIED'' IEND 
.1380 G0T0460 

•1390 INPUT"WITH WHAT" ? A$1G0SUB1660J IFA$=” JE"THENA$=’'CL" 

• 1400 IFA$="FI"ORA$="HA"ORA*="FG”THENPRINT"YOU'RE KIDDING!":G0T0460 
.1410 IFS>32QRS<300RA$<>"CL"0RL( 19 )<>OTHENPRINT"NOTHING YET":G0TO460 
.1420 IFS=32THEN0$<32>="BROKEN MIRROR"JP<8,5)=14tG0T0460 

• 1430 IFS=30THEN0$<30 )="SPLINTERS"IL<2 )=L 
•1440 G0T0460 

it 1450 IFS=30THENPRINT"IT' 3 NAILEDf GLUED AND BANDED SHUT" :G0T0460 — L(»l 

• 1460 IFS0500RL02THEN460 

• 1470 FORX=lT040tIFL(X )=19THENL( X)=2 
•1480 NEXT:G0T0460 
*1490 IFS033THEN1520 
- 1500 INPUT"TO WHAT”»A$JGOSUB1660 
.1510 IFA$="3T B THENR=i:P(6f6)=7:P(7»5)=6:GGT0460 
‘1520 PRINT"CANT":GOT0460 
-1530 IF3=15ANDL(9 )=0THENLI=1:G0T0460 
.1540 IFS<>33THENPRINT"CANT":G0T0460 
•1550 IFL<>11THENPRINT"NGT HERE AINT SAFE":G0T0460 
. 1560 IFL(14 )<>11THENPRINT"NOT ENOUGH WOOD":G0T0460 

^>15707 IFL( 21 )<>11THENPRINT"NQT ENOUGH AIR"tG0T0460 
.1580 L( 32 )= 111 GOT0460 

• 1590 LI=0:GQTQ460 

. 1600 IFSO40THENPRINT"NGTHING HAPPENED” IGOT0460 

.1610 IFL(5 )<>2THENPRINT"CGMPUTEER REPORTS" l PRINT"NO FUEL 

-1620 IFL< 10 )<>2THENF’RINT"N0 INJECTOR PUMP" 

,1630 IFL(8 )<30RL(19 )<3THENPRINT"T0 HEAVY FOR TAKEOFF":G0T0460 
. 1640 IFL(5 )=2ANDL(10 >=2THEN1750 
-1650 GOT0460 

• 1660 IFLEN< A$ )>1THENA$=LEFT$( A$»2) 

.1670 RETURN 

. 1680 IFSO170RL( 11 K>0THENPRINT“CANT" IG0TO460 
-1690 M=M+i:PRINT"THE RUSTLING IS GETTING LOUDER" 

-1700 IFH>2THENPRINT"»...MUCH LOUDER!" 

, 1710 IFM<4THEN460 

.1720 PRINT:PRINT:PRINT:PRINT"A MARTIAN JUST WALKED INTO THE ROOM!!!" 
_£kl730 L(16)=L:G0T0460 \ 

'1740 0$(7 )="NETFULL OF MARTIAN"JM=5:L(16 5=211L<15)=L:G0T0460 

•1750 forx=ito4o:print:next:forx=ito3o:printtab(x>"whwhoooshshsh":next 

.1760 PRINT"CONGRATULATIONS ON A 3UCCE3SFULL MISSION" 





